perm filename PAR.FIX[1,JRA] blob sn#037364 filedate 1973-04-19 generic text, type T, neo UTF8
00100	(DE PARMOD(C D)
00200	(COND((EQ C D) NIL)((ALLNEG C)(PARMOD1 D C))((ALLNEG D)(PARMOD1 C D))
00300	(T(NCONC(PARMOD1 C D)(PARMOD1 D C)))))